home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol048 / setdrive.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.4 KB  |  33 lines
  1. 10 ' ********************************************************************
  2. 20 ' *  PROGRAM SETDRIVE.BAS                                            *
  3. 30 ' *                                                                  *
  4. 40 ' ********************************************************************
  5. 50 '
  6. 60 ' PROGRAM NAME: SETDRIVE.BAS    WRITTEN 17 AUG 1983    REV 13 SEP 1983
  7. 70 '
  8. 75 CLS
  9. 80 OPEN "A:DRIVE.DTA" FOR OUTPUT AS #1
  10. 90 PRINT "IDENTIFY DRIVE FOR DATA INPUT"
  11. 100 INPUT "SELECT (A/B)  ",DRIVE$
  12. 110 IF DRIVE$ <> "A" AND DRIVE$ <> "a" AND DRIVE$ <> "B" AND DRIVE$ <> "b" THEN BEEP: GOTO 90
  13. 130 PRINT "DRIVE SELECTED IS ", DRIVE$
  14. 140 INPUT "SELECTION OK? (Y/N) ",OK$
  15. 150 IF OK$ = "Y" OR OK$ = "y" THEN GOTO 200
  16. 160 GOTO 90
  17. 170 '
  18. 200 ' *******************************************************************
  19. 210 PRINT "IDENTIFY PRINTER USED - E FOR EPSON, I FOR IBM"
  20. 220 INPUT "INPUT PRINTER CODE SELECTED (E/I) ", PRNT$
  21. 230 IF PRNT$ <> "E" AND PRNT$ <> "e" AND PRNT$ <> "I" AND PRNT$ <> "i" THEN BEEP: GOTO 210
  22. 240 PRINT "PRINTER SELECTION IS  ", PRNT$
  23. 250 INPUT "INPUT SELECTION OK? (Y/N) ", OK$
  24. 260 IF OK$ = "Y" OR OK$ = "y" THEN GOTO 300
  25. 270 GOTO 210
  26. 280 '
  27. 290 ' *******************************************************************
  28. 300 WRITE #1, DRIVE$,PRNT$
  29. 310 PRINT "SELECTIONS RECORDED - PROGRAM ENDS"
  30. 320 CLOSE #1
  31. 330 END
  32. **************************
  33. 300 WRITE #1, DRIVE